home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / PRG / ICProgKit 1.3.sit / ICProgKit1.3 / Internet Config Source / ICComponentUtils.p < prev    next >
Text File  |  1996-07-14  |  4KB  |  137 lines
  1. unit ICComponentUtils;
  2.  
  3. (* ･･･Start Header･･･ *)
  4.  
  5. (* File:         ICComponentUtils.p
  6.  * Generated by: 1.0d4
  7.  * For:          IC 1.3
  8.  * On:           Sunday, 14 July 1996, 20:19:55
  9.  * 
  10.  * This file is part of the Internet Configuration system and
  11.  * is placed in the public domain for the benefit of all.
  12.  *)
  13.  
  14. (* ･･･End Header･･･ *)
  15.  
  16. (* This unit holds the selectors for the IC component.  I've moved this into a unit so *)
  17. (* that the override components can access this information without having to *)
  18. (* duplicate it. *)
  19.  
  20. interface
  21.  
  22.     uses
  23.         ICComponentSelectors;
  24.         
  25.     function SelectorToStr (what: integer): Str32;
  26. (* This routine is great for debugging because you don't have to *)
  27. (* what all of those random selectors are. *)
  28.  
  29. implementation
  30.  
  31.     uses
  32.         Components;
  33.  
  34.     function SelectorToStr (what: integer): Str32;
  35.     begin
  36.         case what of
  37.             (* Component Manager stuff *)
  38.             kComponentVersionSelect: 
  39.                 SelectorToStr := 'kComponentVersionSelect';
  40.             kComponentCanDoSelect: 
  41.                 SelectorToStr := 'kComponentCanDoSelect';
  42.             kComponentOpenSelect: 
  43.                 SelectorToStr := 'kComponentOpenSelect';
  44.             kComponentCloseSelect: 
  45.                 SelectorToStr := 'kComponentCloseSelect';
  46.             kComponentTargetSelect: 
  47.                 SelectorToStr := 'kComponentTargetSelect';
  48.             kComponentRegisterSelect: 
  49.                 SelectorToStr := 'kComponentRegisterSelect';
  50.             kComponentUnregisterSelect: 
  51.                 SelectorToStr := 'kComponentUnregisterSelect';
  52.             (* this component type stuff *)
  53. (* ･･･Start ICCSel.p1･･･ *)
  54.  
  55.     kICCStart: 
  56.       SelectorToStr := 'kICCStart';
  57.     kICCStop: 
  58.       SelectorToStr := 'kICCStop';
  59.     kICCFindConfigFile: 
  60.       SelectorToStr := 'kICCFindConfigFile';
  61.     kICCFindUserConfigFile: 
  62.       SelectorToStr := 'kICCFindUserConfigFile';
  63.     kICCGeneralFindConfigFile: 
  64.       SelectorToStr := 'kICCGeneralFindConfigFile';
  65.     kICCChooseConfig: 
  66.       SelectorToStr := 'kICCChooseConfig';
  67.     kICCChooseNewConfig: 
  68.       SelectorToStr := 'kICCChooseNewConfig';
  69.     kICCGetConfigName: 
  70.       SelectorToStr := 'kICCGetConfigName';
  71.     kICCGetConfigReference: 
  72.       SelectorToStr := 'kICCGetConfigReference';
  73.     kICCSetConfigReference: 
  74.       SelectorToStr := 'kICCSetConfigReference';
  75.     kICCSpecifyConfigFile: 
  76.       SelectorToStr := 'kICCSpecifyConfigFile';
  77.     kICCGetSeed: 
  78.       SelectorToStr := 'kICCGetSeed';
  79.     kICCGetPerm: 
  80.       SelectorToStr := 'kICCGetPerm';
  81.     kICCDefaultFileName: 
  82.       SelectorToStr := 'kICCDefaultFileName';
  83.     kICCBegin: 
  84.       SelectorToStr := 'kICCBegin';
  85.     kICCGetPref: 
  86.       SelectorToStr := 'kICCGetPref';
  87.     kICCSetPref: 
  88.       SelectorToStr := 'kICCSetPref';
  89.     kICCFindPrefHandle: 
  90.       SelectorToStr := 'kICCFindPrefHandle';
  91.     kICCGetPrefHandle: 
  92.       SelectorToStr := 'kICCGetPrefHandle';
  93.     kICCSetPrefHandle: 
  94.       SelectorToStr := 'kICCSetPrefHandle';
  95.     kICCCountPref: 
  96.       SelectorToStr := 'kICCCountPref';
  97.     kICCGetIndPref: 
  98.       SelectorToStr := 'kICCGetIndPref';
  99.     kICCDeletePref: 
  100.       SelectorToStr := 'kICCDeletePref';
  101.     kICCEnd: 
  102.       SelectorToStr := 'kICCEnd';
  103.     kICCEditPreferences: 
  104.       SelectorToStr := 'kICCEditPreferences';
  105.     kICCParseURL: 
  106.       SelectorToStr := 'kICCParseURL';
  107.     kICCLaunchURL: 
  108.       SelectorToStr := 'kICCLaunchURL';
  109.     kICCMapFilename: 
  110.       SelectorToStr := 'kICCMapFilename';
  111.     kICCMapTypeCreator: 
  112.       SelectorToStr := 'kICCMapTypeCreator';
  113.     kICCMapEntriesFilename: 
  114.       SelectorToStr := 'kICCMapEntriesFilename';
  115.     kICCMapEntriesTypeCreator: 
  116.       SelectorToStr := 'kICCMapEntriesTypeCreator';
  117.     kICCCountMapEntries: 
  118.       SelectorToStr := 'kICCCountMapEntries';
  119.     kICCGetIndMapEntry: 
  120.       SelectorToStr := 'kICCGetIndMapEntry';
  121.     kICCGetMapEntry: 
  122.       SelectorToStr := 'kICCGetMapEntry';
  123.     kICCSetMapEntry: 
  124.       SelectorToStr := 'kICCSetMapEntry';
  125.     kICCDeleteMapEntry: 
  126.       SelectorToStr := 'kICCDeleteMapEntry';
  127.     kICCAddMapEntry: 
  128.       SelectorToStr := 'kICCAddMapEntry';
  129.  
  130. (* ･･･End ICCSel.p1･･･ *)
  131.             otherwise
  132.                 SelectorToStr := 'other';
  133.         end; (* case *)
  134.     end; (* SelectorToStr *)
  135.  
  136. end. (* ICComponentUtils *)
  137.